fplot(@(x)(0.6/(0.5*0.6+0.5*0.2)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))/((1+0.6-x)*(0.6/(0.5*0.6+0.5*0.2))+(1-0.6)*((1-0.6)/(1-(0.5*0.6+0.5*0.2)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))),[0 1],':');
grid on
xlabel('The Competence of the Government E(\gamma)')
ylabel('The Probability of Learning from Other Sources \rho')
hold on
fplot(@(x)(0.6/(0.5*0.6+0.5*0.2)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))/((1+0.2-x)*(0.6/(0.5*0.6+0.5*0.2))+(1-0.2)*((1-0.6)/(1-(0.5*0.6+0.5*0.2)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))),[0 1],'-')
hold on
fplot(@(x)(0.6/(0.25*0.6+0.75*0.2)-(1-0.6*x)/(0.25*(1-0.6*x)+(1-0.25)*(1-0.2*x)))/((1+0.6-x)*(0.6/(0.25*0.6+0.75*0.2))+(1-0.6)*((1-0.6)/(1-(0.25*0.6+0.75*0.2)))-((1-0.6*x)/(0.25*(1-0.6*x)+(1-0.25)*(1-0.2*x)))),[0 1],':');
hold on
fplot(@(x)(0.6/(0.25*0.6+0.75*0.2)-(1-0.6*x)/(0.25*(1-0.6*x)+(1-0.25)*(1-0.2*x)))/((1+0.2-x)*(0.6/(0.25*0.6+0.75*0.2))+(1-0.2)*((1-0.6)/(1-(0.25*0.6+0.75*0.2)))-((1-0.6*x)/(0.25*(1-0.6*x)+(1-0.25)*(1-0.2*x)))),[0 1],'-')
hold on
fplot(@(x)(0.6/(0.15*0.6+0.85*0.2)-(1-0.6*x)/(0.15*(1-0.6*x)+(1-0.15)*(1-0.2*x)))/((1+0.6-x)*(0.6/(0.15*0.6+0.85*0.2))+(1-0.6)*((1-0.6)/(1-(0.15*0.6+0.85*0.2)))-((1-0.6*x)/(0.15*(1-0.6*x)+(1-0.15)*(1-0.2*x)))),[0 1],':');
hold on
fplot(@(x)(0.6/(0.15*0.6+0.85*0.2)-(1-0.6*x)/(0.15*(1-0.6*x)+(1-0.15)*(1-0.2*x)))/((1+0.2-x)*(0.6/(0.15*0.6+0.85*0.2))+(1-0.2)*((1-0.6)/(1-(0.15*0.6+0.85*0.2)))-((1-0.6*x)/(0.15*(1-0.6*x)+(1-0.15)*(1-0.2*x)))),[0 1],'-')
hold off
ylim([0 1])
set(gca,'XTick',(0:0.1:1))
h=legend('$\rho_h(q=0.5)$','$\rho _l(q=0.5)$','$\rho_h(q=0.25)$','$\rho _l(q=0.25)$','$\rho_h(q=0.15)$','$\rho _l(q=0.15)$')
set(h, 'Interpreter','LaTex','FontSize',5)
print('Comparative3','-dpng','-r800')